Chip 2000 July/Chip_2000-07_cd.bin/sharewar/vbshpdfc/Install.exe/VB Shaped Form Creator.CAB/Reversi.frm

Text File | 1999-12-19 | 11KB | 241 lines

VERSION 5.00
Begin VB.Form MainWin
   BorderStyle     =   0  'None
   Caption         =   "Reversi"
   ClientHeight    =   1590
   ClientLeft      =   1530
   ClientTop       =   1950
   ClientWidth     =   4035
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   Picture         =   "Reversi.frx":0000
   ScaleHeight     =   106
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   269
   Begin VB.TextBox OutputBox
      Height          =   315
      Left            =   510
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   810
      Width           =   3015
   End
   Begin VB.TextBox InputBox
      Height          =   315
      Left            =   510
      TabIndex        =   0
      Top             =   450
      Width           =   3015
   End
   Begin VB.Image TempHolder
      Height          =   255
      Left            =   360
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.Image CloseHolder
      Height          =   210
      Left            =   600
      Picture         =   "Reversi.frx":14BAA
      Top             =   120
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.Image MinHolder
      Height          =   210
      Left            =   240
      Picture         =   "Reversi.frx":14E8C
      Top             =   240
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.Image CloseB
      Height          =   210
      Left            =   3285
      Picture         =   "Reversi.frx":1516E
      Top             =   150
      Width           =   240
   End
   Begin VB.Image Min
      Height          =   210
      Left            =   3015
      Picture         =   "Reversi.frx":15450
      Top             =   150
      Width           =   240
   End
End
Attribute VB_Name = "MainWin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'This program is provided as an example of what can be done using
'VB Shaped Form Creator by Alex Vallat.  It is, of course, freely
'distributible and usable by all, although why anyone would want to
'apart from as an example is beyond me.  Someone must did want it
'it though, as a program to reverse text was requested by a friend
'of mine.  It might as well go towards something usefull too, so it
'is now my example project for VB Shaped Form Creator.
'
'To create this project I first drew out the shape I wanted in
'VBSFC <http://www.comports.com/AlexV/VBSFC.html> using an oval and
'a rounded rectangle.  If you want to see and or edit this shape
'then use VBSFC to load this form.  This was then exported as a
'bitmap and as a form.  The form was loaded into VB, and the text
'boxes and image boxes for the buttons were positioned.  A screen-
'shot of the form (press Alt+Enter) was then pasted into Paint Shop
'Pro <http://www.jasc.com>.  The BladePro plugin <http://ccn.cs.dal.ca/~aa731/blade.html>
'was then used to generate the 3D effects, and the finished bitmap
'saved.  You can look at and edit this bitmap which is Background.bmp
'included with the source-code.  If I had not wanted the positions
'of the text boxes in the bitmap to generate the 3D sunken look for
'them then it would have been easier to use the export as bitmap
'function of VBSFC to export the shape directly as a bitmap, which
'I could then open with PSP.
'
'After preparing the bitmap I set it as the form's background by
'setting the forms "picture" property to it.  I also took screen-
'shots of close and minimize buttons both pressed and unpressed
'(using Alt+Enter), and used PSP to crop them to size.  These are
'also included with the source as _.bmp and x.bmp (unpressed) and
'_p.bmp and xp.bmp (pressed).  The unpressed images were loaded
'into the image boxes in position for the close and minimize, but
'the pressed buttons were put into different image boxes which were
'set to be invisible, and are just for holding the pictures easily.
'Another invisible image box was added as a holder with no picture.
'The reversing code, event handlers and actual programming was then
'put into place.  Interface first, code later...  Shows, doesn't it?

'==================================================================


'The following code up to where I say it isn't is all generated by
'VB Shaped Form Creator to produce the shaped form.

Option Explicit


Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Type POINTAPI
   X As Long
   Y As Long
End Type
Private Const RGN_AND = 1
Private Const RGN_COPY = 5
Private Const RGN_DIFF = 4
Private Const RGN_OR = 2
Private Const RGN_XOR = 3
Private Function CreateFormRegion() As Long
    Dim ResultRegion As Long, HolderRegion As Long, ObjectRegion As Long, nRet As Long
    Dim PolyPoints() As POINTAPI
    ResultRegion = CreateRectRgn(0, 0, 0, 0)
    HolderRegion = CreateRectRgn(0, 0, 0, 0)

'This procedure was generated by VB Shaped Form Creator.  This copy has
'NOT been registered for commercial use.  It may only be used for non-
'profit making programs.  If you intend to sell your program, I think
'it's only fair you pay for mine.  Commercial registration costs $20,
'and can be performed online.  See "Registration" item on the help menu
'for details.

'Latest versions of VB Shaped Form Creator can be found at my website at
'http://www.comports.com/AlexV/VBSFC.html or you can visit my main site
'with many other free programs and utilities at http://www.comports.com/AlexV

'Lines starting with '! are required for reading the form shape using the
'Import Form command in VB Shaped Form Creator, but are not necessary for
'Visual Basic to display the form correctly.

'!Shaped Form Region Definition
'!3,0,0,270,106,0,0,1
    ObjectRegion = CreateEllipticRgn(0 * 15 / Screen.TwipsPerPixelX, 0 * 15 / Screen.TwipsPerPixelY, 270 * 15 / Screen.TwipsPerPixelX, 106 * 15 / Screen.TwipsPerPixelY)
    nRet = CombineRgn(ResultRegion, ObjectRegion, ObjectRegion, RGN_COPY)
    DeleteObject ObjectRegion
'!2,5,196,240,30,8,8,1
    ObjectRegion = CreateRoundRectRgn(196 * 15 / Screen.TwipsPerPixelX, 7 * 15 / Screen.TwipsPerPixelY, 240 * 15 / Screen.TwipsPerPixelX, 30 * 15 / Screen.TwipsPerPixelY, 16 * 15 / Screen.TwipsPerPixelX, 16 * 15 / Screen.TwipsPerPixelY)
    nRet = CombineRgn(HolderRegion, ResultRegion, ResultRegion, RGN_COPY)
    nRet = CombineRgn(ResultRegion, HolderRegion, ObjectRegion, 2)
    DeleteObject ObjectRegion
    CreateFormRegion = ResultRegion
End Function

Private Sub Form_Load()
    Dim nRet As Long
    nRet = SetWindowRgn(Me.hWnd, CreateFormRegion, True)
    Me.Left = (Screen.Width - Me.Width) \ 2
    Me.Top = (Screen.Height - Me.Height) \ 3
    'Following lines makes the background picture resize with the form
    'size, for users with Large Fonts turned on.
    Me.Show
    Me.AutoRedraw = True
    Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    Me.AutoRedraw = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Next two lines enable window drag from anywhere on form.  Remove them
'to allow window drag from title bar only.
    ReleaseCapture
    SendMessage Me.hWnd, &HA1, 2, 0&
End Sub

'===================End of VBSFC Generated Section=================

'Now starts the code for the actual program.  Here this procedure
'reverses the text typed into the top box, and displays it in the
'bottom box.  This program was done by request, and no, I don't
'know why he wanted something to do this, either. :)

Private Sub InputBox_Change()
    Dim Counter As Integer, OutputHolder As String
    For Counter = 1 To Len(InputBox.Text)
        OutputHolder = Mid$(InputBox.Text, Counter, 1) + OutputHolder
    Next Counter
    OutputBox.Text = OutputHolder
End Sub

'When the mouse button is pressed over the minimize button it changes to a "pressed" image.

Private Sub Min_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    TempHolder.Picture = Min.Picture    'Remember the original picture
    Min.Picture = MinHolder.Picture     'Display the pressed picture, held in MinHolder imagebox
End Sub

'When the mouse button is released, put the button back up, and perform the action.

Private Sub Min_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Min.Picture = TempHolder.Picture    'Put the picture back the way it was (remembered)
    MainWin.WindowState = 1             'Minimize the form
End Sub

'Same here for the close button.  See Min_MouseDown proc. for details

Private Sub CloseB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    TempHolder.Picture = CloseB.Picture
    CloseB.Picture = CloseHolder.Picture
End Sub

Private Sub CloseB_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CloseB.Picture = TempHolder.Picture
    Unload MainWin                      'Exit the form when close is clicked
End Sub

'Select the text of the bottom text box when it is clicked on

Private Sub OutputBox_Click()
    OutputBox.SelStart = 0
    OutputBox.SelLength = Len(OutputBox.Text)
End Sub